home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue63 / Construc / XMLDUMP.DPR < prev    next >
Encoding:
Text File  |  2000-10-04  |  306 b   |  16 lines
  1. program XMLdump;
  2. {$APPTYPE CONSOLE}
  3. uses
  4.   DBClient, XMLStr;
  5. var
  6.   ClientDataSet: TClientDataSet;
  7. begin
  8.   ClientDataSet := TClientDataSet.Create(nil);
  9.   try
  10.     ClientDataSet.LoadFromFile('table.xml');
  11.     writeln(DataSetXMLString(ClientDataSet))
  12.   finally
  13.     ClientDataSet.Free
  14.   end
  15. end.
  16.